II Hello Again I 

Issue 2 of the Official AMOS Newsletter 
Is here, packed with Information as usual. 
This Issue, we have our usual Absolute 
Beginners, Learners, Sprites and Bobs, 
and Professor Speck articles, as well as 
advice on writing 10-llner games (and 
v/hy), as well as an update list on the 
Official AMOS P.D library and several 
program listings. 

I’m starting to get some usefull feed¬ 
back from members now that the AMOS 
club has over 1100 of them (end of 
October 1990), and membership apllca- 
tlons are still coming In at the rate of SO 
a week. I’m managing to answer most of 
the enquiries coming In, as long as they 
have stamped addressed envelopes, but 
Inevitably there will be a few that get 
delayed. 

So far, plenty of information has been 
coming In, mostly on bugs you’ve dis¬ 
covered In AMOS. Apart from one or 
two, most of these bugs are minor ones, 
and all of them are being worked on. 
Currently AMOS Is at Version 1.21 (An 
Upgrade Is available from the P.D Libr¬ 
ary) which now Includes a completly new 
music extension, which can handle Noise- 
tracker and Soundtracker V2.S flies, once 
they are converted with the new Sound- 
tracker converter program. 

□ New Products 

Development Is currently going on for 
at least 3 new AMOS programs, the 
AMOS Compiler, AMOS-3D and 


AMOS TOME. So far release dates are 
not confirmed, but look like being January 
1991 at the earliest. We have no details 
yet of prices. The Compiler will enable 
you to turn your AMOS programs Into 
machine code stand alone programs which 
will run from 5-20 times faster. AMOS 3D 
contains a new extension with commands 
for handling 3 dimensional objects a- 
ta-Stargllder style, Including a powerfull 
3D Editor and probably a demo game, 
Peter Hickman Is currently working on a 
demo. AMOS TOME is a full blown map 
editing system. Including an extension with 
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BUG FIXES 


Well we got off to a good start bug 
wise with the newsletter. Issue 0 had one 
bug In It, and Issue 1 had two I The bug In 
Issue zero came about In the BOUNCE 
10-Llner listing when Mandarin changed the 
files on the Data Disk Just after printing 
the newsletter, thus one of the files the 
program tries to load Isn’t on the disk ! 
Thus Line 1 should be changed to: 

1 Hide Ob : Flask Off : Curs Off : 

Paper 0 : CIs ; Erase 1 : 

DIr$=”DfO:®fagie_Fore8t” : Load 

“MFSPRITES.ABK” : Load 

“BACKLABK’.S : Unpack S to 0 

which should fix It I 

In Issue 1, both the bugs were caused by 
missing lines, probably lost In the transfer 
to the Apple Macintoshes that Mandarin 
use for their DTP work. The first was In 
the Scrolling Example on page 2. Line 9 
was missing and should be: 

(9) Screen Copy 0 to 1 

Also bugged was the High Score table 
program. Line 2 should be : 

(2) Gosub INI THIGH SCORES 

losing the B) that somehow got added 
to the end, and Line 4 was missing, which 
should have been: 

(4) Gosub HIGHSCORE 

Various bugs with AMOS V1.1 Itself have 
been reported, and Version 1.2 has now 
been released with most of them fixed. 
(Available through the P.D Library, and 
the November Issue of Amiga Format). 
Some of the common ones can be got 
around however. 

□ Comparing Strings in 
an IF..Then statement 

Due to the way AMOS does logical 
comparisons In an IF_._Then statement, 
you will get a type mismatch error If you 
use a line comparing strings using Or/ 
And/Not etc e.g 


If A$=”Fred” aid BS="Jo@” ties 

This Is caused because AMOS tries to 
do the AND Calculation on the Strings 
(which It can’t). To overcome this pro¬ 
blem, put the String checks In brackets, 
so that they are worked out first, and 
thus become boolean (Binary) results, 
that the Aid/Or etc functions can use. 
eg 

If (A$=”Fred”) and (B$=”Jo@”) 

then ... 

In V1.1 of AMOS the SET MENU (),X,Y 
Command was In fact SET MENU (),Y,X 
as for some reason Francois put the 
parameters the wrong way around. In 
V1.2 he has cured this bug. However, this 
means that any program using the SET 
MENU command will act strange In V1.2, 
thus once you have upgraded, search 
through any programs which use SET 
MENU for the command, and swap the 
X.Y parameters around. On the AMOS 
Program disk, the Map Editor uses the 
command 5 times. If you bought AMOS 
recently, and It Is already V1.2, you need 
not worry, as all the programs have been 
updated for you. 

If you have noticed a bug In AMOS, then 
note It down, test to make sure you can 
make It happen again, and write In to 
Mandarin Software Including any relevant 
Information like what machine you are 
using, how long It takes for the bug to 
occur, etc. This way details can be 
passed to Francois, so that If there Is a 
bug there, he can fix It for the next 
version. 

AMOS VI. 21 

Version 1.21 of AMOS Is now available. If 
you have Versions 1.1 or 1.2, you can 
'upgrade to V1.21 with the upgrade disk 
available through the AMOS Club P.D 
Library. 



I’ve had several (hundred) letters and 
phonecalls asking how to Install and use 
IFF fonts In AMOS. In theory, It Is easy to 
use a font In AMOS, In practise however, 
various things can cause problems.... 

There are a few points to remember 
about fonts. 

1) Custom fonts can only be used with 
the TEXT command and not the PRINT 
command. 

2) The fonts must be stored on your 
AMOS boot disk (or your RAMOS boot 
disk if the program Is running from It) In a 
directory called FONTS, or on a disk 
called FONTS. 

3) Each font requires at least two files, 
the Information file, usually with the 
.FONT tall, and the font data files 
stored In a directory with the same name 
as the font. For Instance, If a font was 
called AFONT, and came as two sizes, 8 
and 12 pixel, you would have the follow¬ 
ing files 

AF0NT.FOMT (In the FONTS direc¬ 
tory) 

a directory called AFONT (In the 
FONTS directory) which would contain 
2 flies called 8 and 12. 

Thus to Install this font In AMOS, you 
would have to copy the AFONT.FONT 
file Into the FONTS directory, make a 
new directory called AFONT within the 
FONTS directory and copy the files 8 
and 12 to this directory. At this point, 
the program CLIMATE comes In Incredi¬ 
bly usefull, as It makes It a lot easier than 
using the CLI. It Is a commercially 
available program, well worth buying. If 
you don’t want to fork out hard earned 
money for CLIMATE, and you don’t 
want to use the CLI, then you can do all 


this setting up from within AMOS. Inclu¬ 
ded In this article Is a program which will 
install fonts for you by creating the 
required directories and copying the data 
files. Type It In and save It somewhere, 
then using your AMOS boot disk (which 
should be a of your AMOS master, 
or RAMOS master), run the program and 
enter the name of the FONT you want to 
copy from your fonts disk, then the drive 
that the font disk Is In. First of all, the 
program will create the required direc¬ 
tories on your boot disk, then It will copy 
the flies across. By changing the disk 
name on line 1, you can get the program 
to Install fonts on your AMOS disk, 
RAMOS or even your hard disk. In Its 
current state the program Is set up to 
run only with 2 drives, but It shouldn’t be 
too difficult to make It work on 1 drive. 

If you wish to list the fonts on the disk, 
type 1 Instead of a font name, and the 
program will list the directory of the disk. 

Tte Listin g (Don’t enter the line num¬ 
bers these are for reference only !) 

(1) 0$="AHOS:” : Reel change 
this if you waeat the teats lust 
ailed on a different disk 

(2) Screen Ofsea 0,840,200,4, 

Hires 

(3) L!ie input "Eater the name of 
the font you wish to 

iastalli’^FOl 

(4) Ltae Input “Eiter the drive th 
e fonts disk wiil tie in (Dfl:- 
Dfwhatever:) :”;DF$ 

(5) If FO$=”7” 

(8) DIr$=DF$ 

(7) Dir 

(3) Else 

(9) Dlr$-D$ 

(10) If EKist(“FONTS”)=0 

(11) Print “Creating FONTS dlrec 
tory oh boot disk” 

(12) Mkdlr “FONTS” 







(13) Emd If (14) FS-’TONTS/ 
”+FQ$ 

(IS) If EmI@4(F$) 

(18) Prlat "Directory ”;FO$;” al 
ready exists. Halting” 

(17) Eacl 

(18) Efsd If 

(19) Mkdlr Ff 

(20) Dlr$=DF$ 

(21) CPYFILE[DF$+FO$-s-”-FOHT"'. 
D$+”FONTS/”+FO*+”_FONT”] 

(22) Dlr$=DF$-s-FO$ 

(23) F$=Dlr Ftrrt$(“ B ”) 

(24) F$=Mld$(F$,2,lHStr(F$,” ”,2) 
- 2 ) 

(25) While F$<>”” 

(28) CPYFILE[DF$+FO$+”f 
”+F$.D$+”FONTS/”+FO$+”f 
”+F$] 

(27) F$=Dir Mex« 

(28) FS=MId$(F$.2Jartr(FS,” ”.2) 
- 2 ) 

(29) Wend 

(30) Prist "Fort Installed.” 

(31) Prlrt "Fort will be available 
on re-boot” 

(32) End If 

(33) End 

(34) Proeedure CPYFILE[F1$,F2$] 

(35) Shared DF$,D$ 

(36) Print "Copying ”;F1$;” to ’ 
’;F2$ 

(37) Dlr$=DF$ 

(38) Iff Exlst(F1$) 

(39) Open Is 1,F1$ : L=Lof(1) : 
Close 1 

(40) Erase 5 

(41) Reserve As Work 5JL 

(42) Bload F1$.Start(5) 

(43) DIr$=D$ 

(44) Bsave F2$.Start(5) To 
Start(5)+L 

(45) Els© 

(46) Print “File not found ”;F1$ 

(47) End If 

(48) End Proc 


Number Racing 

One thing I’ve had requested Is a test of 
the speeds of Subroutines against Pro¬ 
cedures and the various loop commands. 
So I worked out some benchmark pro¬ 
grams to fairly test the commands, and I 
got some VERY Interesting results. 

TEST 1 Gotub ¥ Pr oc edure 

The test program used a FOR..NEXT 
loop to do 1000 calls using either Cosub, 
or a Procedure. Each routine did the 
dummy calculation E=M®C a C (the vari¬ 
ables were defined as GLOBAL for the 
procedure). As with all the tests, the 
results were a time In 50ths of a second. 
COSUB 20 50ths 

PROCEDURE 27 SOths 

so Gosub wins by a head ! 

T EST 2 Co un t ing Loops 

Here 1 tested the speeds of the 
FOR..NEXT,WHILE..WEND, 
REPEAT..UNTIL and DO..LOOP 
(Using an EXIT IF command) against the 
primitive way of counting using 
IF..THEN (with a GOTO). Here are the 
results, the times are for counting from 1 
to 10,000: 

FOR..NEXT 17 50th* 

REPEAT..UNTIL 97 SOths 

WHILE..WEND 102 SOths 

DO..LOOP (with Exit)108 SOths 
IF..THEN 119 50tSs 

Most of the speed difference Is due to 
the fact that all but the FOR..NEXT 
loop need an INC A to actually Incre¬ 
ment the counter. What was really Inter¬ 
esting was that If the statements are all 
put on seperate lines, then the program 
runs FASTER, which Is very unusual for 
a Basic program! 

(Continued or Page 14) 


Aheolute Beginners 


#2 In a series of 1,000,000 

In the last Issue we programmed a very 
simple dice game, using some straightfor¬ 
ward Basic commands. This Issue, we will 
be going over some new commands, the 
FOR.TO.NEXT loop and the 
GOSUB—RETURN commands. 

□ FOR.TO.RSEXT 

If you wanted your program to do 
something several times over, you 
wouldn’t want to type In the commands 
several times over, would you ? This Is 
where the concept of LOOPS comes In. 
The Idea of using a Loop Is to make the 
program repeat a command or series of 
commands a number of times. For In¬ 
stance, If we wanted to count from 1 to 
10 on the screen, we would want to do 
this In pseudo-code: 

1) Start count at 1 

2) Print court to screes 

3) add ohb to count 

4) If count Is less than or equal 
to tea go back to (2) 

5) otherwise stop 

If we wanted, we could use a variable 
and an IF.THEN statement to do the 
above, e.g 

10 COUNTrt : Rem start COUNT 
at 1 

20 Print COUNT 

30 COUNT-COUNT+1 : Rein adds 
ons to COUNT 

40 If COUNT<=!0 then goto 20 
50 end 

Note the use of the <= symbols In line 
40. In Basic, the symbols < and > refer to 
less than and greater than, <= refers to 
Less than or equal to, >= means greater 
than or equal to and <> means not equal 
to. 

The above program Is not very struc¬ 
tured or easy to read, and It could be 


shorter. This Is where the 
FOR.TO.MEXT loop comes In. 

FOR.TG-NEXT Is actually made up of 
2 commands, the FOR.TO command tells 
AMOS what to count from and to, and 
the NEXT command adds the correct 
step to the counter and If It Is still within 
the defined range will Jump back to Just 
after the FOR.TO statement. 

So for our above program we could do 
W For COUNT = 1 To 10 : Rem 
count fro® 1 to 10 (the number 
Is stored In variable COUNT) 

20 Prtat COUNT 
30 Next COUNT : Rem add one 
to count and Jump back to line 
20 iff it Is <=10 
40 end 

You can use any variable instead of 
COUNT, and you can also NEST loops 
within each other. e.g 

19 For A=1 to M 
2© For B=1 to 8 

30 Locate A„B 40 Print 
56 Next B 
m Next A 

The above program counts from 1 to 10 
In variable A, every step It does for A, it 
counts from 1 to 8 In B. The Locate 
command positions the text cursor at A 
columns and B rows, and then an asterisk 
Is printed (The semi colon after the print 
statement stops a return character being 
printed). The end result Is a square of 
asterisks on the screen. 

Note that you cannot do the following 
nest: 

16 For Art to 10 

20 For Brt to 8 
50 Next A 

60 Next B 

as this would give you an error (Work 
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your way through the program and see 
for yourself what Is happening). 

Another useful I trick with 
FOR.TO.MEXT Is that you can change 
the amount It counts In, with the optional 
STEP parameter. If STEP Is ommlted, 
then the count will be In ones. The STEP 
parameter comes after the TO parame¬ 
ter, l.e 

10 For A=1 to 10 step 2 

The above line will count from one to 
ten In steps of 2. You can also use STEP 
for counting backwards, l.e 
10 For A=10 to 1 step -1 
20 Priest A 
30 Walt SO 
4® Next A 

SO Print “Blastoff !” 

note the use of the step -1 to count 
backwards In steps of 1. The Walt 50 
pauses the program for one second (SO 
50ths of a second). 

□ GQSUB. RETURN 

If you remember the last Issue of 
Absolute Beglners, you’ll remember that 
we used a GOTO statement to Jump to 
a previous line In the program to do a 
loop. Goto can be used easily to get to 
other parts of the program. For Instance: 
1® Input “T^pe something In and 
press RETURN :”;AS 
20 goto TOO 
30 end 

100 For A=1 to 3 
110 Print AS 
120 Next A 
139 goto 30 

If you trace what the above program Is 
doing, you will see that It lets you enter 
some text Into the string variable A$, It 
then goes to line 100 where It does a 
count from 1 to 3, Prints A$ out and then 
goes back to line 30 where the program 
ends. 


But what If we wanted to use the 
routine at line 100 more than once 7 
10 Input “Eater a string ”;A$ 

20 Goto 100 
3® Goto 100 
40 ead 

100 For A=1 to 3 
110 Print Al 
120 Next A 
130 goto 30 

If you ran the above program, It would 
keep looping back to line 30 and you 
would have to use etrl-C to stop It. 
What we need Is some way of going to 
our subroutine, and then returning back to 
Just after the Jump. This Is what the two 
commands GOSUB and RETURN are 
for: 

10 Input “Ester a strlag ”;A$ 

20 Gosub 108 
30 Gosub 100 
40 end 

100 For A=1 to 3 
110 Print A$ 

120 Next A 
13© Return 

In this program, line 20 goes to the 
subroutine at line 100, which will execute 
until It gets to the RETURN statement, 
which tells the program to go back to 
Just after where the subroutine was 
called, le line 30, where It goes to the 
subroutine again, and returns to the next 
line, which Is line 40. You must make sure 
with subroutines however, that the pro¬ 
gram never gets to them without a 
GOSUB or you will get a RETURN 
WITHOUT GOSUB error (Try removing 
line 40 to see what I mean). 

Until the next Issue, experiment with 
using FOR.NEXT and GOSUB. 
/ RETURN statements. Have fun I 


.0-Liners 


Why 10-LlBea ? 


I have been asked, why I promote and 
write 10-llne games, when the use of more 
lines would result In tidier programs, with 
better gameplay and more features. 
There are 3 very good reasons for 10-llne 
programs: 


(1) They take up very little space In the 
newsletter and don't take 3 weeks to 
type In! 


(2) They are a perfect example of 
Spaghetti Code (see this Issue’s Profes¬ 
sor Speck article) 


(3) They encourage efficient program¬ 
ing rather than neat but wastefull pro¬ 
graming. 


Trying to cram a whole‘game Into 10 
lines of program Is a major challenge, and 
Is a good way of testing programing skill. 
It also forces the programmer to write 
his programs with maximum efficiency. 
The more efficient you make your code, 
the more you can add to the game. 


Many 10-llner programmers (myself in¬ 
cluded) like to convert old favourites 
from the past days of computers Into 10 
lines. Thus annoying all the programmers 
who had to fill the entire memory of a 
custom built machine to write their game, 
but also because these old games are 
great fun and putting them Into 10 lines 
enables about 50 or more of them to go 
on each disk. We will be releasing a disk 
full of 10-llners In the near future through 
the P.D library, so send them in now ! So 
far the old classics 10-llned are: 


Poag (Includes computer player, 3 
levels of difficulty and title screen I) 

Missile Command (See this Issue’s 
listings) 


Lusar Laider (See this Issue’s listings) 
Blitz and others. 

The current challenge Is to convert 
Space Invaders, Asteroids, Breakout and 
Shadow of the Beast to 10-Llne games. 
(Space Invaders would be the most 
difficult). 

This Issue, we have two 10-llners for 
you, both using the same sprites from the 
EXTRAS disk. If you haven’t got your 
Extras disk yet, send your REGIST¬ 
RATION card (The one that came In the 
AMOS box) off to Mandarin Software 
and they will send you It free. 

The first is WEED WAR, which Is a 
version of the old classic Missile Com¬ 
mand. You must control your little 
hovershlp to try and stop the tendrils of 
poisonous weed from coming down and 
destroying your nice lawn. You can fire 
your weed killer spray (which has a 
limited number of shots) or use a weed 
shield (3 per level). Control Is by the 
mouse with the left button firing weedkil¬ 
ler and the right button setting off a 
shield. The weeds will explode upon 
hitting weedkiller, shields or grass, and 
the game is over If any weed manages to 
get through the grass and Into the 
ground. 

WE IE ID 
WAR 

(1) Dim NX(50),MY(50) : 
Dlr$=”extras:Sprlte_600/allens” 

: Load “all@B5_abEt F ' : Get Sprite 
Palette : Cla 0 : L¥L=0 : 

A$=”AU (I ROoXM J U” 

(2) A$=A$Vi R1oY64 J U X U: L 
R0=XM ; L R1=YM ; D M) M: M R0- 
X.RI-Y.l W FF : Amal 1,A$ : Asnal 
Oh : Autoback 0 : Curs Off : 
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Flash Off : Sprite 1,X Mous@,Y 
Nouse,1 

(3) Hide Oa : LVL=1 : DEAD-® : 
While DEAD-© ; SHIELD=3 : Irak 0 
: Bar 0,0 To 320,200 : Irak 4 : 

For A=0 To 319 ; Draw A.200 
To A,199-Rrad(50) : Next A 

(4) ZAPPED--® : AMMO=32+LVL<*12 
: Colour 4,Rnd(tOO0)+85 : For 
A=0 To LVL-2+1 : 
MX(A)=Resd(200)+60 : MY(A)=0 : 
Next A : While DEAD-0 and 
ZAPPED<LVL B 30+10 

(5) X=X Screen(X Mouse) : Y=Y 
Scree«(Y Mouse) : Ink 13 : A=0 : 
Repeat : XO-MX(A) : YO=MY(A) : 
MX(A)=Mln(319,Max(0.MX(A)-i-Rnd( 
LVL*4+4)-RHd(LVL*4+4))) : 
MY(A)=MY(A)+LVL 

(6) P-Polrat(MX(A),MY(A)) : If P=4 
Then Gosub RANG Else Draw 
XO,YQ To MX(A).MY(A) 

(7) DEAD=DEAO*(MY(A)>=2©0) : 
loc A : Umtll A>LVL»2+1 : Iff 
Flre(0) and AMISO>® Then Dec 
AMMO i Shoot : Ink 4 : For A=1 
To 10 Step 2 : Circle X.Y.A : 
Next A 

(8) If Mouse Key-2 and MKO<>2 
and SHIELD>0 Then Dec SHIELD 
: Ink 4 : Oar 0,120 To 320, 124 
-s-SHIELD el 4 

(9) MKO-IMouse Key : Wend : lac 
LVL : Weed : Boom : Locate 0,10 
: Paper 1 : Pea 0 : Centre 
“Gatae Over” : End 

(10) BANG: Boob : Inc ZAPPED : 
Ink 0 : S=Rrad(2)+1 : 

S2=S i ’(8+LWL) ; For B=1 To S2 
Step S : Circle MX(A),MY(A),B : 
Next B : MX(A)=60+Riad(2O0) : 
MY(A)=0 : Return 

As usual, Ignore the line numbers In 
brackets, these are just for reference. 


The next 10-Llner Is called LOONY 
LANDER, and Is a simple version of the 
Lunar Lander game. Using the same sprite 
bank as WEED WAR, In this game you 
must control your ship Into a landing on 
the triangular landing pad. To gain points 
you must pick up the stranded pilot who 
Is floating In space. Beware though, you 
have a limited amount of fuel. You can 
land at any speed on the pad, but the 
slower your landing, the more points you 
get. 

Your ship Is refuelled every 3 levels and 
Is controlled with the joystick, left and 
right steer the ship, and the fire button 
operates the retro-thrusters. Note that 
the game also stores a high score, and 
Includes hardware scrolling. 



JLj4JV£7JE7? 

(1) DIr$=”Extras:SPRITE_6Q0/ 
Aliens/” : Load "allera5_abk” : 
Hot Spot 1,8,20 : Hot Spot 
0,8,20 : Do : Screen Open 
1,320,20„4,Lowre® 

(2) Screea Display 1, ,254, ,20 : 
Curs Off : CIs 0 : LVL=0 : 
DEAD-0 : While DEAD-0 : 

Screen Opera 0,640,200,16,Lowres 
: Hide On : Curs Off : Flash Off 

(3) G=1 : DX-0 : Get Sprite 
Palette : FUEL=Max(FUEL,-(LVL 
mod 3=0) B 300) : LAND-0 : 
PICKUP=-1 : CIs 0 : DY=0 : Ink 3 
: For A-0 To 839 Step 2 

(4) Bar A.199-S To A+1.200 : 
S=Max(5,Mlfl(45,S+Rnd(8)-4» : 
Next A : Irak 2 : B=RHd(320)+18O 
: Polygon B.150 To B+16,200 To 
B+32,150 

(5) Double Buffer : Bob 


8 



2.Rid(32O)-5-160, Rad(80)+5©,9 : 
X=1B© : Y#=!6 : While DEAD-© 
asd LAND-0 : Screes Offset 
O.X.O : Bob 1,160+X.Y#,1+TH*5 
(0) Wait Vbl : C-Bob Co!(1) : 
Y#=Y#4-DY/4 ; 
P=(1-8-C) s Poist(X-sTOO,Y#'+4) : 
DY=Max(-8.Ml0(1B,DY*G-TH a 2)) : 
If C Then PICKUP-1 : Bob Off : 
Bell 50 

(7) DX=Max(-4,MlB(4,DX-rTX)) : 
TH=Abs(Flre(1)) : TX-Jleft(l)- 
Jright(l) : FUEL-FUEL-TH- 
Abs(TX) : FUEL=Max(0,FUEL) : 
TX=Sgra(FUEL)“TX : 
TH=Sgn(FUEL) B TH 

(8) DEAD-(P-3) : LAND=(P=2) : 
X=MaK(0,Mls3(320,X rDX)) : Wend 
: SCORE=SCORE-LAND“ (FUEL 
+(16-Abs(DY» B 100+ PICKUP® 
2600) : Screen 1 : Locate 0,0 

(9) Print “SCORE:”;SCORE;” 
Hi”;HISC ; Screen 0 : Wend : 
lac LVL : Screea Offset 0,180,0 
: Boom : For A=7 To 19 : Bob 
1,X-s-160,Y#-DY,A 

(10) Walt 2 : Next A : Locate 
0.10 : Centre “Game Over” : 
Walt Key : HISC-Max 
(HISC.SCORE) : SCORE-O : 
Loop 


THE A«©^ 
WEEPEIDME 

As an AMOS Club member, you can 
call the AMOS Helpline at Shadow 
Software any time between 2p.m and 
7p.m If you need help with your AMOS 
programming. The number Is 

0271-23544 (Shadow Software) 

remember to have your card handy to 
quote your membership number. 


Tie art of “Bessy” programing 

by Prof A-Spock O.D.D 

If you have been given any formal 
programing lessons, or have learned your- 
programlng from a book, you will no 
doubt have been told that your programs 
should be structured, neatly arranged and 
covered In rem statements. If you have 
ever tried to type in one of these 
programs from a magazine or abook, you 
will no doubt have noticed the length of 
the program and become fed up of typing 
In all those rems! 

Spagettl Coding Is a popular artform 
amongst computer programmers, espe¬ 
cially those using dialects of Basic which 
use line numbers (Like STOS,AMOS’older- 
relative for the ST), but It Is equally 
popular In ’’Structured” Basics (l.e 
AMOS). 

There are two forms of Spagettl Code, 
Practical and Freestyle. Practical Spa¬ 
gettl Is a highly usefull form of program¬ 
ing, as It results In compact efficient 
code, wheras Freestyle Spagettl Is a 
more artistic form, resulting In programs 
that are twice as long as they should be, 
but a lot more fun to look at. 

Look at these examples 

Practical Spagettl 

10 screea opera 8,320,200,18, 
lowres : curs off : flask off : 
dim a(10), b(10) 

11 for a-0 to 10:a(a)-md(109): 
ti(a)=rad(20):next a 

Freestyle Spagettl 

10 goto 1000 

11 dim a(10),b(10):for a=© to 10 

12 goto 800 
17 sext a:@Bd 

500 curs off:flashoff:goto 11 
800 a(a)=rad(100):b(a)=rnd(20): 
goto 17 
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1000 screen open 0.320,200,16, 

lowres : goto 50® 

Both these programs do exactly the 
same thing, however the Practical Spa- 
gettl program Is obviously more usefull, 
and the Freestyle Spagetti program Is 
much more artistic. As Freestyle Spa¬ 
getti Is more of an artform than a usefull 
style of programing, we shall leave It in 
favour of Practical Spagetti, which you 
will find usefull In most programs, espe¬ 
cially where the program’s length Is 
restricted (such as In a 10-llner pro- 
grams.whlch will be covered In the next 
issue). 

Where do the Rems go ? 

The only problem some programers have 
with spagetti Is remembering where things 
are In a program, and what they do. This 
usually results In the unethical use of rem 
statements In the program, which waste 
memory and make the listing more Incom¬ 
prehensible. However, advanced spagetti 
coders have developed an amazing piece 
of new technology, called the High Reso¬ 
lution Double Density Fibre Based Fast 
Recall Memory System, HRDDFBFRMS, 
otherwise known as a pen and a piece of 
paper. By the wonderfull system of 
writing down notes while programing, you 
get to remember all those usefull details 
about program loops and variable usage, 
without cluttering the program with very 
unartlstlc rem statements. It Is suggested 
that you experiment to find the best type 
and colour of paper and pen for use in 
your programing, as writing notes on a 
piece of green blotting paper with a 
magic marker might seem alright In theory, 
but In practice it is very impractical, 
especially If the magic marker is out of 
Ink. Small ring bound notepads, and ball¬ 
point type pens are recomended,although 
Freestyle Spagetti programers have been 
known to use canvas and oil paint 
(Younger spagetti coders can use very 


large pieces of paper and blunt purple 
wax crayons). 

What cas S Scruach ? 

There are practical limits to what can 
be compacted within a program. However 
for starters use the FIND command in 
the AMOS Search menu to find and 
remove all rem statements. Then you can 
procede to add lines together until they 
reach a suitable length. Usually a line 
length of 200-240 characters Is sul- 
table.Some statements however effec¬ 
tively end a programing line, thus limiting 
you in how you can compact the pro¬ 
gram. These are: 

Rem : nasty, you don’t want any of 
these In your programs 

Goto : very usefull for Spagettlfylng a 
program 

If .. Thera: Only artistic If used with at 
least five And functions or 3 other 
embeded If’s e.g 

S3 If (A=4 and b=4) or (((((c=8 

or d=7) aad q=2)))) then If z=3 

goto 12 

notice the artistic use of extra brackets 
In the above equation, a bit of Freestyle 
creeping In there! 

Return : Try and get each of your 
subroutines onto 1 line, ending with a 
return statement. 

End & Stop : Very terminal! 

Data : try and avoid, as you can make 
the line much longer by directly loading 
the variables. E.g Instead of: 

10 for a=0 to 20:read a(a):neKt a 

20 data 1,10,53,64,97....79 

use 

10A(0)=1:a(1)=10:a(2)=53:a(3)=64:a( 

4)=97_a(20)=79 

In the best Spagetti programs, every 
line will end with one of the abovestate¬ 
ments. As you can see there are various 


advantages of spagetti code over text- 
bookstyle programing, and Just because 
It looks nice, I will list the various 
atrlbutes of textbook, Practical Spagetti 
and Freestyle Spagetti In Table 1. 

Feel free to try both styles of Spagetti 
coding. You might want to try and make 
one of your programs more effecient 
with Practical Spagetti, or you might- 
want to hold a Freestyle Spagetti con¬ 
test with your friends (or you might need 
new wallpaper). Either way, I’m sure 
you'll agree that Spagetti coding Is much 
more usefull and a lot more fun. 


Remember 

• M A good ran Us a rein In 
soaeoae els@”s program ? 

Professor Speck Is a lecluror In applied Pseu- 
dophyslcs at the University of Advanced Games- 
wrttlng In Barnstaple. Ho Is one of the leading 
exponents of experimental Freestyle Spagetti 
coding, and has won several awards and an Arts 
Council grant for his piece entitled "23567 Ifs and 
several gotos”. He Is currently trying to break his 
own world line length record of 15,032 statements 
on one line, using a Cray Mk2 Supercomputer 
and a specially modified version of STOS. 


fable 1. Attributes of programing Styles 

□ Textbook Programs 

V ery Bea t looking Impresses GCSE examiners 

iacredlbly loiaq so they waste a lot of listing paper 

Mot a t all a rtistic They don’t Impress more Junior programers (because It looks 
just like one ofthelr GCSE programs) 

□ Practical Spagetti 

Mot tfMactlv seat looking Makes GCSE examiners cringe (possibly an advantage!) 

Much s h orter but wider . so they use listing paper more economically 

Vary m smorv econo mica l 

Moderately artist ic Impresses junior programers quite well 

□ Freestyle Spagetti 

Looks like an exploded word-processor . Instantly fatal to GCSE examiners 

Both logger and wider than both other styles of program. Makes great 
wallpaper! 

Very wasteful! of memory . Just the excuse you needed to upgrade to 4 megs! 

Incredibly artistic (especially If used as wallpaper) Impresses the hell out of 
Junior programers, who will then spend years trying to trace all the loops and jumps In 
your program, before finally giving up and turning to flower arranging. 
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In the last Issue, I explained the major 
differences between bobs and sprites and 
how to get the best out of them. This 
Issue, I will be giving you a few bits to 
add to the sprite editor, to give It the 
ability to Merge sprite banks, and an RGB 
copy command for when you are design¬ 
ing SPRITES rather than bobs. 

Also, I will be showing you various ways 
of doing Collision Detection. First of all 
however, I will answer a common query 
about the sprite grabber. 

Q: How do I get the sprite grabber to 
accurately grab the area I want around 
my sprite. I keep getting too much or too 
little. 

A: You don’t I You should always grab a 
larger area than you want, and then trim 
It out In the sprite editor. 

And one for all of you trying to redefine 
your default pointers etc on your AMOS 
master disks. 


and edit them In 16 colour mode using only 
4 colours as this makes them 4 bltplane 16 
colour sprites. 

□ Adding to the Sprite 
Editor 

The first modification Is a much simpler 
way of appending sprite banks than last 
Issues program. This will add the 
APPEND command to the sprite editor. 
Upon pressing the “A” key, you can 
APPEND a sprite bank to the current one. 

First of all set up the text buffer to 
?©0©0 bytes, and then load the sprite 
editor. 

1: Change the Set Buffer command on 
Line 1 to 

SET BUFFER 12 

2: Find line 312 and change It to 
IF (A$="L”) or (A$=”A”) 

3: Find line 331 and change the ERASE 1 
to 

if A$="L” 


Q: I have just redefined my mouse 
pointer and AMOS logo In the Mouse.abk 
file on my AMOS backup, now AMOS 
won't boot. Why ? 

A: You must redefine these sprites as 
exactly the same size and number of 
bltplanes. In the bank, there are 4 sprites. 
The number of bltplanes and colours in 
each are as follows. 

Sprite 1 : Normal Mouse Pointer : 2 
Bltplanes, 4 Colours 

Sprite 2 : Crosshairs ; 2 Bltplanes, 4 
Colours 

Sprite 3 : Clock : 2 Bltplanes, 4 
Colours 

Sprite 4 : AMOS Logo : 4 Bltplanes, 16 
Colours 

The 2 bltplane/4 colour sprites can be 
edited In Hl-res 4 colour mode. Do not try 


Erase 1 
EucJlf 

(Thus adding lines In front and after the 
ERASE 1) 

Now the append function will work in 
the same way as the load function. 

□ The RGB Copy addition 

Remember from Issue Ts article, I men¬ 
tioned that Sprites use a second set of 16 
colours, but are drawn with the first set? 
This can cause problems with designing 
sprites, because getting at the second 
half of the palette can be a problem. The 
following modification will copy the first 
16 colours Into the 2nd set of 16 colours 
whenever you press the “R” key. This 
way you can design your sprite In the 
knowledge that It will be the correct 
colours. 

1: Insert the following lines before line 


312 . 

If AS=”R” 

Gosub RG0GOPY 
Eadif 

2: Find the LDSPRITES: label, and 
Insert the following sub-routine before It. 
RGBGQPY: 

S=Scre@a : Screes 1 : Walt Vbl 

A=0 : Repeat 

Colour A+16,Colour(A) 

lac A : Until A=1B 

Screen S 

Return 

and you have yet another function In the 
sprite editor I 

Now save the program to your 
BACKUP of the AMOS Program disk, or 
to whatever disk you keep your sprite 
editor on. 

□ COLLISION 
DETECTION. 

There are several ways of detecting a 
collision between Bobs, Sprites and other 
things In a program. First of all, I will 
explain the AMOS system of detecting 
collisions between bobs and sprites, as 
this has caused confusion with some of 
you. 

AMOS has a rather clever way of 
detecting a collision between Sprites and 
bobs, that once you have got the hang of 
It, can be very easy to use. 

There are generaly two parts to a 
collision detection between objects. 
First, the BOBCOL, SPRITEBOBCOL, 
BOBSPRITECOL or SPRITECOL 
functions can tell you whether your 
bob/sprite has collided either with any 
other bob or sprite or with a particular 
range of them. Then you use the CQL() 
function to test Individual sprites/bobs to 
see If they have collided with the one you 
are testing. E.G your ship Is sprite 8, and 
there are 3 enemy ships Bobs 1-3, as well 


as a bonus pick-ups Bobs 4 and 5 

First you would check for a collision 
between your Sprite and the 3 enemy 
bobs 

C=Sprltebobcol(8,1 To 3) 

This will return -1 If you have collided 
with any of the enemy bobs or 0 If you 
haven’t 

then you can check to see If you have 
hit either of the bonus pickups: 
C=Sprltebobcol(8,4 to 5) 

If C returns -1 then you have hit one of 
the two bonuses, and can use the COLQ 
function to check which one you hit. 

eg 

If Col(4) then .. You've bit bob 4 
if CoI(S) then .. You've tilt bob 5 

Basically, the Col() function contains 
the collision results of the last collision 
checked for with any of the four Colllson 
checking functions. 

You can also check for collisions bet¬ 
ween your object and any number of 
rectangular zones using the Set Zone 
command and =Zosie function. However, 
this can only detect whether one point Is 
In the particular area, which must be 
rectangular, thus ruling out checking for 
Irregular shaped landscape etc. Similarly, 
the POINTQ function will return the 
colour of a point on the screen, but 
again, cannot check a larger area. One 
way of checking for a collision with a 
landscape, Is to keep a spare bob In your 
bank (or Just add one on the end), so that 
you can use the GET BOB command to 
grab the area of background underneath 
your bob or sprite. All you need to do 
then Is display the new bob behind your 
bob (using a higher bob number gives It a 
lower priority) and do a IBOBCOL/ 
SPRITEBOBCOL etc to check for the 
collision. You must of course watch out 
for the fact that the hotspot on the new 
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bob will be at 0,0 and when grabbing It, 
remember that the hotspot on your 
sprite/bob probably isn’t at 0,0, so 
remember to change the area you grab 
accordingly. For example. If your bob Is 
at 100,100 , was 16x16 pixels In size and 
had a hotspot at 3,4, you would grab 
the area from 37,86 to 113,114 
(87-a-1B,98-i-16)_ 

Another way that doesn’t Involve com¬ 
plex bob routines. Is to keep a 1 colour 
copy of the background In a hidden 
screen, with carefull use of the 
SCREEN h command and the Point 
function, you can quite easily check for 
collisions. However, this method uses up 
more memory even though you will only 
need a 2 colour screen, also you have to 
define your extra screen somehow ! 


Number Racing (Coot f r, page 4) 


The last test I ran, checked the 
FOR..NEXT (With Step 0), WHILE 
TRUE—WEND , REPEAT..UNTIL 
FALSE, DO-LOOP, and GOTO (with 
IF..Theei) In an Infinite loop where the 
variable A was Incremented. When A 
reached 10000 , an EXIT IF command 
exits the loop (In the case of the 
GOTO, the IF command does this). 
Again, suprising results I 
FOR..NEXT 

(With STEP 0) IIS SOttis 

REPEAT .UNTIL 
FALSE 130 SOths 

WHILE TRUE. WEND 134 50ths 

GOTO (With IF) 120 50ths 

DO..LOOP 105 SOtfts 

So DO..LOOP wins this round, but 
notice that both FOR..NEXT and 
GOTO are faster than the “Textbook" 
REPEAT..UNTIL and WHILE..WEND 
loops ! It will be Interesting to see what 
results we get from the compiler! 


B WHWBMBB— BW— 

Scro///ng 

Something everybody Is going to want 
to do at some point Is to do a scrolling 
screen. Whether It be In a game or a 
demo, horizontal or vertical (or both) 
scrolling can be usefull. 

The basic idea of scrolling Is to take an 
area of screen, move It sideways, up or 
down, and then to place something new In 
the area It has been moved from. There 
are various ways of doing this In AMOS: 

1) Use Def Scroll to set up the scrolling 
area and Screen Copy to copy over the 
blank 

2) Use Screen copy to do everything 

3) Use the Screen Offset command to 
scroll the screen 

The easiest of these methods to use and 
understand is method 2, so we will use 
this for this article. Hopefully by Issue 3,1 
should have a reasonably simple (and bug 
free) version of a Screen Offset scrolling 
routine, which Is smoother and faster (but 
uses more memory ). 

The following program uses the Screen 
Copy command and the TAME pro¬ 
cedures to display a scrolling back¬ 
ground, with bobs overlayed, as a double 
buffered screen (so It’s flicker free). 
Obviously, you are going to need to 
create a few things for this. You will 
need: 

A Tile Screes (The MFTILES.ABK 

(Toes Magic Forest can be used) 
A Sprite Bank (MFSPRITES.ABK 

can be used) 

A Map file (You will have to 

create this one) 

To create the map file, you will have to 
use the TAME Map Editor Program which 
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you get with AMOS, or the more power- 
full TOME Map Editor which should be 
available around January 1991 and which 
also Includes the TOME map extension to 
give you extra AMOS commands relevant 
to working with map based backgrounds. 
More details on TOME will be available In 
later Issues of the newsletter. 

The map for this demonstration will 
need to be about 3200 pixels wide by 192 
high. If you are using 32x32 pixel tiles 
(The MFTILES.ABK ones for Instance) 
this works out at 100 tiles wide by 6 tiles 
high. If you are using 16x16 pixel tiles, 
double these figures (l.e 200x12). So load 
up the Map Editor, set the map size to 
100x6 or 200x12 and design yourself a 
map. Save it as SCROLLER.MAP and 
use the DIR command from the direct 
mode of AMOS to check Its length In 
bytes. 

Make sure your work disk has your tile 
screen, sprites and map file on It (If not, 
copy them over to It) and then load up 
the MAP_VIEW.AMQS program from 
the AMOS Extras disk. If you don’t have 
an Extras disk, send your registration 
card (the one you got In the AMOS box) 
In to Mandarin Software straight away. 

In the MAP_VIEW program are the three 
TAME routines we will require (TOME has 
commands to replace all the procedures), 
these are called: 

GTBLCKS 

TAMEVIEW 

TAMEMAP 

Mark all these procedures as a block, 
and use the SAVE ASC function to save 
them to your workdlsk, then clear the 
editor memory and type in the following 
program, go to the end of the program 
and use MERGE ASC to merge back the 
procedures. 

This particular scrolling program works 
by displaying the area to be scrolled on a 


hidden screen (screen 1), and only updat¬ 
ing It when the main screen scrolls by 1 
tile (16 or 32 pixels). This screen Is 
SCREEN CGPY’ed to the logical screen 
of our double buffered screen (screen 0) 
where It Is Invisible to the user, every 
frame, the bobs are displayed over it and 
then It Is screen swapped to the physical 
screen (where It can be seen) by the BOB 
UPDATE command, which handles screen 
swaps automatically for us. 

Next come the control routines for the 
bob (very basic on this example) and then 
the routine to scroll the hidden screen, 
which Is only used If the displayed screen 
has scrolled by a whole tile width. 

If you are using 16 pixel width tiles, then 
change the relevant values In the program 
from 32 to 16. 

(9) Reus “Simple” smooth 
horizontal scroller 

(2) MXLN=99S : SCH=192 : 
SCW=320 

(3) Rem XSSZE anti YSIZE contain 
the tile size 

(4) XSIZE=82 : YSIZE-32 

(5) Been screen height and width 
(required by TAME) 

(6) Hide On 

(7) Rera Load yoiar Tile Screen 
and sprites here ? 

(8) Load “MFTILES.ABK”,5 

(9) Load “MFSPRITES.ABK” 

(10) Unpack 5 To 2 : Screen 
Hide 2 

(«) Rem then load your snap 
her© 

(12) Rem set the length off the 
work bank to the size off the 
nap 

(13) Rera ( check the disk 
for the size ) 

(14) Reserve As Work 6.620 

(15) Bload “SCROLLER-MAP”, 
Start(6) 
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(16) Reel Set up the TAME 
routines to display a screerfull 

(17) Ren the TAMEVIEW.GTBLCKS 
atari TAMEMAP routines 

(18) Ren should fee copied from 
the MAP_VIEW.AMOS program 

(19) TAMEVIEW[0. ©, 320/XSIZE. 
192IYSIZE, XSIZE, YSIZE] 

(20) GTBLCKS 

(21) Screen Close 2 

(22) Rem set up our display 
screens 

(23) Ink © : Screes © : Screen 

To Front 0 

(24) Bar ©„© To 320.192 

(25) Screen Open 1.352.192,16, 
Lowres : Screen Hide 1 

(26) lnk 0 ; Bar 0.0 To 352,192 

(27) Get Palette 0 : Flash Off : 
Curs Off 

(28) Rem display a screen full 

(29) TAMEMAP11.90,0] 

(30) Rem change The map display 
routines to draw only Hen the 
left hand edge 

(31) TAMEVIEW[®,0. 32/XSIZE, 

192/YSIZE.XSIZE, YSIZE] 

(32) Screen To Front © : Screen 
© : Flash Off 

(33) Double Buffer : Bern 
display the map on screen 1 
then copy it to 0 every frame 

(34) SP=8 ; X«=99 : SX=XSIZE : 
FX=160 : FY=150 

(35) Rem Sp =scroll speed, X= 
map co-ordinate, SX=flne 
scroll FX and FY are the bob 
co-ordinates 

(36) Set Bob 1,-1, , 

(37) Set Bob 2,-1, , 

(38) Rem the SET BOB command 
must be done for EVERY bob 

(39) Bob Update Off : Get 
Sprite Palette Limit Bob 0,0 
To 320.192 

(40) MD=© : Screen 1 : Ink 0 : 


Bar 0. © To 352, 192 

(41) Repeat : Screes 0 : Screen 
Copy 1,SX,0.320+SX,192 To 
Loglc(0),0,0 

(42) Ren display your bobs here 

(43) Bob 1JFX.FY.1 : Bob 2.FX, 
17G-FY.2 

(44) Ress then do bob update 

(45) Bob Update : Walt Vbl 

(46) If Jup(1) 

(47) Dec FY : FY=Max(®.FY) 

(48) End If 

(49) If Jdown(l) 

(50) Inc FY : FY=MIh(170,FY) 

(51) End If 

(52) Hem note the use of the 
Min a Maw Functions 

(53) If Jleft(l) 

(54) Inc SP : SP=MI*i (16.SP) 

(55) End If 
(5®) If JrigM(l) 

(57) Dec SP : SP=Max (0, SP) 

(58) End if 

(59) Rem scroll the background 
obi screen I 

(60) TG=1-TG 

(61) Rem the above toggles TG 
between 0 and 1 

(62) If TG=1 

(63) SX=SX-SP 

(64) If SX<=« 

(65) SX-XSIZE+SX : Dec X 

(66) If X<0 

(67) ND =1 

(68) End If 

(69) Scr@ea Copy 1,0,0,320,192 
To 1.XSIZE.0 

(7Q)TAMEMAP[1.X,0] 

(71) Else 

(72) Walt Vbl 

(73) End If 

(74) End If 

(75) Until ND=1 

(76) End 

(77) Rem The TAME 
procedures go In here ! 


ASVIOE5 F*-0 LIBRARY 


HOW IT WORKS 

Payments from abroad MUST be made in 
GBP either by International Money Order 
or Postal Giro. We can NOT accept 
payments In other currencies or credit 
card payments. 

Cheques/PO’s should be crossed and 
made payable to AMOS Public DomaiH 
Library and sent to the above address. 

APD discs cost £2.50 UK, £2.75 
Europe and £3 Rest of World. Prices 
INCLUDE P&P. Each disc has a specially 
printed AMOS Public Domain label kindly 
produced by Mandarin Software so your 
PD discs will match the rest of your 
AMOS master discs. 

If you buy three discs or more then 
DEDUCT 20p per disc Including the first 
three, a saving of at least 60p. 

If you send In your own FORMATTED 
VIRUS FREE discs then deduct £1 per 
disc. 

If you have any programs which may be 
suitable then please send them In (prefer¬ 
ably as unprotected Basic files). Don’t 
forget to choose a disc from the library 
In exchange for yours. 

Ring Sandra on 0942 495261 to find 
out about the latest public domain titles 
to be added to the library. 

Cheques/PO’s should be crossed and 
made payable to AMOS Public Domain 
Library and sent to: 

AMOS PD LIBRARY c/o Sandra 
Sharkey (Dept. AC.) 25 Park Road 
WIGAN WNB 7AA 

New Additions to the Library 
APD20: Arc Angel Demo - Have you ever 
seen a breakdancing bunny? No! Well 


neither have I but this demo contains a 
bunny who stamps his feet In time to the 
music and a frenetic fiddler among others. 
Well put together for a first demo from 
the Arc Angel. 

APD21: Word Square Solver by Jeff Tul- 
lln - Word Squares made easy with this 
program. Just type In the letters and let 
the computer find the words for you. 
APD22: Fun School III Demo by Peter 
Hickman - The third In Database Soft¬ 
ware’s excellent Fun School series. Just 
sit back and watch the demo. Shows all 
three age groups. Excellent demo. 

APD23: Soundtracker Modules #1 - In¬ 
cludes TIEDUP. TOCCATA, ENOLA 

GAY. FREEZING. 

APD24: Soundtracker Modules #2 - In¬ 
cludes BACKPOPPED. CHROflOS, 

ODYSSIA, RAA„ SAHARA. 

APD25: Soundtracker Modules #3 - In¬ 
cludes DRAGON. INTUITION, 

NEWORDERMIX, QBLIT. 

APD26: Soundtracker Modules #4 - In¬ 
cludes ROMEO. SARAH.TELEPHONE. 
1DRUNNER. 

APD27: Soundtracker Modules #5 - In¬ 
cludes BALANCE. ECHOING, 

!TS_ACID, SHADOWZ. 

APD28: Soundtracker Modules #6 - In¬ 
cludes G&GOBLINS, LOOKAROUND, 

PHOTO. REMIX3, SHORT. 

APD29: Soundtracker Modules #7 - In¬ 
cludes LONEFUNK, RENDEZVOUS4, 
EQUINOXES. 

APD30: Soundtracker Modules #8 - In¬ 
cludes FLASH4, STAR_SCROLL. 

USA, S MISSION?. 

APD31: Screen Designer by James Robert 
Crosby - The Idea of this program Is to 
allow AMOS users to create large IFF 
screens which can be loaded Into any of 
their own programs. 
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APD32: AMOS programs by Gary Fearn 
and Nadeem - Contains CLI.AMOS, 
MyfJrstdsrao.AMOS, Sprltes- 
tars.AWQS iuisS Textview.AMOS by 
Gary. The disc also contains Nadeem- 
scroller.AMOS which Is a demo by 
Nadeem. Lots of source code for you to 
play about with and learn from. 

APD33: Pink Goes Ape by Arc Angel - 
The opening sequence of this scrolling 
demo features an animated Pink Panther 
plus the Pink Panther theme. Plenty of 
good music accompanying the scrolling 
message on the split screen. 

APD34: Luke Miller’s Music - 11 original 
compositions as ABK files. You can use 
them In your own games/demos providing 
you acknowledge Luke. Also on the disc Is 
Tiler.AMOS, a simple but very playable 
game. 

APD35: Archivist by Steven Harrison - A 
small data storage program which will 
store any data that you have as a 
sequential file on disc Options Include add 
to a file, change any record, see the 
directory of any drive, edit a record, 
delete a file, view records. Excellent help 
within the program. 

APD3B: AMOS I 21 Update - Incor¬ 
porates loads of new commands, 
SPRITE FLIPPING, FASTER 
SEQUENTIAL FILES. IIBOB and 
(SPRITE (sow work. Magnificent 
NEW FILE SELECTOR. LOCK PRO¬ 
CEDURES so you can protect your 
secret code. As well as a com¬ 
pletely sew Music play routine and 
improved Soundtracker converter 
(Can handle Nolsetracker songs) 

All major bugs fixed .... probably! 
Fully automatic update. Includes 
RAMOS 1.21 . 

□ LICENSEWARE/ 
SHAREWARE 

Discs In this section cost a little more 
than the ordinary PD price with the extra 


being paid to the author. Not all the discs 
will be licensed. It Just happens that the 
first three are! 

LPDI: Colouring Book - by Trevor Prince. 
Licensed exclusively to AMOS PD Library 
and Page One PD Service. Simple game 
for pre-school children upwards. Load In a 
picture from a choice of eight with a nur¬ 
sery rhyme theme, click on the colour you 
want and colour the picture. A new ver¬ 
sion Is In the pipeline which will Include a 
sketchpad, animation and much more. Will 
run on 1/2 meg machines - £3.5® UK, 
£3.75 Europe and £4 Rest of World. 
LPD2 : Arc Angels Maths - Licensed 
exclusively to AMOS PD Library and Page 
One PD Service. An educational game to 
help the kids with their maths. Four 
options to choose from, add, subtract, 
multiply and divide. Will run on 1/2 meg 
machines - £3.50 UK. £3.75 Europe 
and £4 Rest of World. 

LPD3: Curos & Stavros Mega Demo One 
- Imb and two drives required. 11 great 
songs and superb graphics on this brilliant 
demo. BLUE SHADOW Is my favourite 
‘cos It’s got an animated bunny. Other 
songs Include RAINYDAY, POPCORN and 
REVOLUTION. - 2 disc demo. £5.50 
UK. £5.75 Europe and £6 Overseas. 

□ MORE P.D ! 

There are so many disks being added to 
the AMOS P.D Library, that we cannot 
list them all here. For a full update, 
including a full list of all the Australian 
P.D Library, please send a stamped 
addressed envelope to Sandra, and ask 
for the latest AMOS P.D catalogue. 

□ P.D Required 

More programs are required for the 
AMOS P.D Library. Currently we require 
games, usefull routines and utilities (writ¬ 
ten in AMOS of course 1). Remember, that 
If you send In a p.d disk that gets 
accepted, you can pick a disk from the 
library In return. 


Sorting 

Quite often (especially In score tables) 
you will need to sort a series of numbers 
Into order. There are many ways of 
sorting variables, but the most common 
and simple to understand method Is called 
the bubble sort. The bubble sort Is named 
after the way that higher values float to 
the top like bubbles. 

The Bubble sort works like this: 

You count through each element In the 
array, comparing it with all the other 
elements In the array. If one of the other 
elements is greater than the one you are 
checking, you swap them around. This 
way, the first element will contain the 
highest value, all the way down to the 
lowest element, which will contain the 
lowest value. Try the following program 
(Again Ignoring the line numbers): 

(1) Rem Example Sort Program 
for Bubble Sort 

(2) Dlm N(10) : For A-0 To 10 : 
N(A)=Rnd(20) : Next A 

(3) For A-0 To 9 : Reel count th 
rough the array 

(4) For B-A+1 To 10 : Rem match 
all against all 

(5) lf N(B)>N(A) Then Swap N(A), 
N(B) 

(6) Next B 

(7) Next A 

(8) For A-0 To TO : Print N(A) : 
Next A 

If you wanted to sort a table, using 
only one of the columns of the table, you 
must remember to swap ALL of the 
columns when exchanging lower and hig¬ 
her values. The following program will 
sort a (sort of) football league table 
Into order based upon the point scores 
of each team (Generated at random). 

(1)Rern SAME EXAMPLE For LEA 


GUE TABLE 

(2) Rem T$()=TEAM NAME.W()= 
WINS (3pts),D()= Draws 
(1pt).L()=LOSSES 

(3) Rem P()=polnts (table Is sorte 
d on points) 

(4) Screen Qpepi ®„©4®, 2©®,4, 
Hires 

(5) Dta T$(10), W(10), 0(10), L(10). 
P(10) 

(6) Rem read In team names and 
generate scores 

(7) For A=0 To 10 : Read T$(A) 

(8) W(A)-Rnd(18) : D(A)=Rnd(19- 
W(A)) : L(A)=19-W(A)-D(A) 

(9) P(A)=W(A) B 3+D(A) 

(1®) Next A 

(11) Rem sort it 

(12) For A-0 To 9 

(13) For B-A+1 To 10 

(14) If P(B)>P(A) 

(15) Swap TS(A),T$(B) : Swap 
W(A),W(B) 

(IB) Swap D(A),D(B) : Swap L(A 
),L(B) : Swap P(A).P(B) 

(17) Endlf 

(18) NeMt B 

(19) Next A 

(20) Cls 0 : Paper 0 : Pen 2 

(21) Prlnt ““Teara” : Locate 20,0 : 
Print “Won’Y’Drw’Y’Lst'V’Pts 

(22) For A-0 To 10 

(23) Locate O.A+1 : Print T$(A) 

(24) Locate 20.A+1 : Print W(A), 
D(A).L(A),P(A) 

(25) Next A 

(26) Data "Llverpuddle", "Arsnll", 
“Wombledon". "Spurs”, 
"Barnstaple Town FC", 

"AMOS Rangers” 

(27) Data “Mas. Utd", 

“Ferrari 77", "East Bacon”. 
"Evertin', "Notinghaifi Wood" 
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News (Continued fros froit 
page) 

commands for using high speed maps In 
your programs, a very powerfull map 
editor and at least one demo game. 

□ AMOS on Show 

Richard Vanner of Mandarln/Database 
software and Peter Hickman, will be 
giving AMOS Seminars at the Commodore 
show on the 16th to the 18th of Novem¬ 
ber. 

The full Mandarin team will be at the 
Computer Shopper Show at Wembley 
Arena on the 6th-9th of December, and I 
will be going along on the Saturday (the 
8th), so hopefully I will meet some of you 
there. Both AMOS 3D and TOME will be 
demonstrated there, and Sandra will be 
coming down with the P.D Library. It 
should be a good show I The Helpline 

□ The Helpline 

The AMOS Helpline has been Inundated 
with calls, which Is good news, because It 
means that there are a lot of people 
programming In AMOS. The best time to 
call is between 2p.m and 7p.m U.K time 
Monday to Saturday, I don’t mind calls on 
Sundays, but I tend to be either recording 
or at the beach then, so 1 might not be In I 
If you’re stuck though, call I 

Remember the number is 0271-23544 
(Shadow Software) and quote your 
membership number and that you are 
programming in AMOS (otherwise you 
might get a STOS solution I). 

□ Articles. 

We could do with a few articles for the 
newsletter. Preferably these should be 
accurate, not too long and supplied as an 
ASCII file on a disk. 

Several thank-you’s to Michael Hawks- 
worth and Knarf who have both been 
contributing bugs and usefull Ideas, and 
to everyone who has pointed out bugs 


and have sent In programs for the P.D 
Library. 

□ AMOS in the magazines 

Both Amiga Computing and Amiga 
Format are now running series of AMOS 
articles, be sure to look out for them. In 
his most recent article In Amiga 
Computing, Peter Hickman covered 
AMAL programming. 

□ New Programs 

Before I go, a few words about four 
new programs about to be added to the 
P.D library (Send an S.A.E to Sandra for 
a full catalogue). I’ve only just received 
them and there wasn't time to add them 
to the P.D list In this Issue, but the 
programs are: 

Arcadia: A great Arkanold/lmpact 
Breakout type game. Very fast and 
colourfull. 

Juagle Bungle: Very profeslonal Icon 
driven adventure game: Great fun ! 

Reversl: A very profeslonal version of 
the popular board game. 

AMOS Paint: Feature packed and easy 
to use art package. Should be great 
when It’s finished. 

AMOS Paint and Jungle Bungle will both 
be either Shareware or Llcenseware. But 
check with Sandra for details. 

Happy AMOSing ! . 


This Newsletter was written by 
Aaron Fothergill, unless other¬ 
wise stated, put together on an 
Amiga and an ST using Timeworks 
DTP . 

Graphics by Adam Fothergill. 

Printed by Creative Printers, 
104 Boutport Street, Barnstaple, 
N.Devon. Telephone (0271) 77655 
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